home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Loads_Of_Source.lha / pattern_viewer.amos / pattern_viewer.amosSourceCode
AMOS Source Code  |  1981-06-16  |  509b  |  22 lines
  1. '
  2. '       ---------------------------------------
  3. '            PATTERN VIEWER BY JASON CHAN  
  4. '       ---------------------------------------
  5. '
  6. ' >>>>>>  JUST PRESS ANY KEY TO VIEW PATTERNS <<<<<< 
  7. '
  8. MAIN
  9. Procedure MAIN
  10.    Screen Open 0,320,256,64,Lowres : Curs Off : Change Mouse 2 : Cls 0
  11.    N=0
  12.    Ink 9,38
  13.    Locate ,6 : Cline 
  14.    Do 
  15.       Inc N
  16.       If N=36 Then N=1 : Locate ,6 : Cline 
  17.       Set Pattern N
  18.       Locate ,6 : Print "PATTERN:";N
  19.       Bar 0,0 To 320,32
  20.       Wait Key 
  21.    Loop 
  22. End Proc